home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
An Invitation to the Roland World of Music
/
Roland - An Invitation To The Roland World Of Music.bin
/
vb
/
vb30
/
disk1
/
scribble.fr_
/
scribble.bin
Wrap
Text File
|
1993-04-27
|
867b
|
38 lines
VERSION 2.00
Begin Form frmScribble
Caption = "Scribble"
ClipControls = 0 'False
DrawMode = 14 'Merge Pen Not
Height = 5010
Left = 1080
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4605
ScaleWidth = 4965
Top = 1740
Width = 5085
End
Dim DrawNow As Integer
Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawNow = -1
CurrentX = X
CurrentY = Y
End Sub
Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
If DrawNow Then
Line -(X, Y)
Circle (X, Y), 50
End If
End Sub
Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
DrawNow = 0
End Sub